﻿Public Class LocalizaSala
    Dim objBBL As New BLLAgendamento
    Public nome, descricao, bloco, sala As String
    Public codigo As String

    Sub limpa()
        txtlocalizar.Text = ""
        dgdados.DataSource = Nothing
    End Sub
    Private Sub blocalizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles blocalizar.Click
        Try
            If txtlocalizar.Text <> "" Then 'verifica se não existe nenhum valor
                If cblocalizar.SelectedIndex = 1 Then
                    dgdados.DataSource = objBBL.LocalizarSala(txtlocalizar.Text)
                Else
                    Try
                        Dim codigo As Integer = txtlocalizar.Text
                        dgdados.DataSource = objBBL.LocalizarSala(codigo)
                    Catch ex As Exception

                    End Try
                End If

                dgdados.Columns(0).HeaderText = "Código" ' define o nome da coluna
                dgdados.Columns(0).Width = 60 'define a largura da coluna
                dgdados.Columns(1).HeaderText = "Sala"
                dgdados.Columns(1).Width = 100
                dgdados.Columns(2).HeaderText = "Descrição"
                dgdados.Columns(2).Width = 150
                dgdados.Columns(3).HeaderText = "Bloco"
                dgdados.Columns(3).Width = 100
                txtlocalizar.Text = ""
                If dgdados.Rows.Count = 0 Then
                    dgdados.Columns.Clear()
                    MessageBox.Show(txtlocalizar.Text & " não localizado")

                End If
            Else
                MessageBox.Show("Inserir Sala a ser localizado!")
            End If
        Catch

        Finally

        End Try
    End Sub

    Private Sub DataGridView1_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgdados.CellDoubleClick
        If e.RowIndex >= 0 Then 'procura o index que ele clicou
            codigo = dgdados.Rows(e.RowIndex).Cells(0).Value ' atribui o codigo na variavel global, para talvez alterar mais pra frente
            nome = dgdados.Rows(e.RowIndex).Cells(1).Value 'atribui os valores da linha passando o nome da coluna especifica
            descricao = dgdados.Rows(e.RowIndex).Cells(2).Value '
            bloco = dgdados.Rows(e.RowIndex).Cells(3).Value '
            Me.Close()
        End If
    End Sub

 
    Private Sub LocalizaSala_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        limpa()
        If sala <> "" Then
            cblocalizar.SelectedIndex = 1
            txtlocalizar.Text = sala
            blocalizar_Click(sender, e)
        Else
            cblocalizar.SelectedIndex = 1
        End If
    End Sub

    Private Sub cblocalizar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cblocalizar.SelectedIndexChanged, cblocalizar.Click
        txtlocalizar.Text = ""
    End Sub

    Private Sub txtlocalizar_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtlocalizar.KeyPress
        If Not Char.IsLetterOrDigit(e.KeyChar) And Not e.KeyChar = vbBack Then
            e.Handled = True
        End If
        If e.KeyChar = Convert.ToChar(Keys.Return) Then
            e.Handled = True
            Try
                blocalizar_Click(sender, e)
            Catch ex As Exception

            End Try
        End If
    End Sub

End Class